<text><span class="style1"> would like to thank the beta-testerswho volunteered to try out this stackat various stages of development.Thanks also to the members of the</span><span class="style3">National Capital Macintosh ClubHyperCard SIG</span><span class="style1">for their help and suggestions.Special thanks to</span><span class="style3">Jonathan CloudDouglas Dickinson</span><span class="style1">(click on this field to hide it)</span><span class="style19"></span></text>
</content>
<name></name>
<script>on closeCardhide card field "thanks"pass closeCardend closeCard</script>
</card>
card_21116.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Watch this space formore techniquesin the next version.</text>
</content>
<content>
<layer>card</layer>
<id>80</id>
<text>Click a topic of interest below, or click the right arrow button above to start at the beginning.</text>
</content>
<name>Index</name>
<script>on sectionButtonput the short name of the target into cardNamedelete char 1 to 2 of cardNamevisual effect scroll leftgo to card cardNameend sectionButton</script>
</card>
card_31356.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up field Script.-- Show field when button is pressed, hide when released.-- ...by Geneviève Crabeon mouseDownshow card field "hidden"wait until the mouse is uphide card field "hidden"end mouseDown</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>289</left>
<top>135</top>
<right>468</right>
<bottom>225</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Hidden</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (1 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he term </span><span class="style3">pop-up field</span><span class="style1"> refers to a field which is usually hidden, and is displayed when, for example, you click a button.This first technique displays the field when you click the button, but only as long as the button is down; the field is hidden again when you release the button.Create the field then hide it using the </span><span class="style3">hide</span><span class="style1"> command; the field is then displayed and hidden by the button script.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>This field is displayed when the button is pressed, and then disappears when the mouse button is released.</text>
</content>
<content>
<layer>background</layer>
<id>16</id>
<text></text>
</content>
<name>Pop-up fields</name>
<script></script>
</card>
card_2474.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up field Script.-- ...by Geneviève Crabe-- (see also the script of card field "hidden")on mouseUpshow card field "hidden"end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>297</left>
<top>143</top>
<right>472</right>
<bottom>235</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hidden</name>
<script>-- Pop-up field Script.-- ...by Geneviève Crabeon mouseUphide card field "hidden"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (2 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">se this technique when you want a field to be displayed when a button is pressed, and hidden by clicking the field itself.Create the field then hide it using the </span><span class="style3">hide</span><span class="style1"> command; the field is then displayed by the button script, and hidden by the field script.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>This field is displayed when the button is pressed; click the field itself to make it disappear.</text>
</content>
<name></name>
<script>on closeCardhide card field "hidden"pass closeCardend closeCard</script>
</card>
card_4907.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up field Script with visual effect.-- ...by Geneviève Crabeon mouseUplock screenshow card field "hidden"show card button "OK"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>297</left>
<top>123</top>
<right>472</right>
<bottom>243</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hidden</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>422</left>
<top>216</top>
<right>465</right>
<bottom>236</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OK</name>
<script>-- Pop-up field Script with visual effect.-- ...by Geneviève Crabeon mouseUplock screenhide card button "OK"hide card field "hidden"unlock screen with dissolveend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (3 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">se this technique when you want a field to be displayed when a button is pressed, and hidden by clicking an </span><span class="style3">OK</span><span class="style1"> button in the field.Create the field then hide it using the </span><span class="style3">hide</span><span class="style1"> command; the field is then displayed by the </span><span class="style3">Show Field</span><span class="style1"> button script, and hidden by the </span><span class="style3">OK</span><span class="style1"> button.Also, this makes use of the </span><span class="style3">lock screen</span><span class="style1"> and </span><span class="style3">unlock screen</span><span class="style1"> commands; the </span><span class="style3">unlock screen</span><span class="style1"> command can use a visual effect. Here, the </span><span class="style3">dissolve</span><span class="style1"> effect is used.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style1">his field is displayed when the </span><span class="style3">Show Field</span><span class="style1"> button is pressed; click the </span><span class="style3">OK</span><span class="style1"> button to make the field disappear.</span></text>
</content>
<name></name>
<script>on closeCardhide card button "OK"hide card field "hidden"pass closeCardend closeCard</script>
</card>
card_5239.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up field Script.-- ...by Geneviève Crabeon mouseUpset the visible of card field "hidden" to ¬not the visible of card field "hidden"end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>299</left>
<top>146</top>
<right>472</right>
<bottom>237</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hidden</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (4 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">se this technique when you want a field to be displayed when a button is pressed, and then click the same button to make the field disappear.Create the field; it will be displayed and hidden by the script of the </span><span class="style3">Show/Hide Field</span><span class="style1"> button.This technique can be combined with number 2, so that clicking on either the button or the field will hide the field.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style1">his field is both displayed and hidden when the</span><span class="style3">Show/Hide Field</span><span class="style1">button is pressed.</span></text>
</content>
<name></name>
<script>on closeCardhide card field "hidden"pass closeCardend closeCard</script>
</card>
card_31999.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up field Script.-- ...by Geneviève Crabeon mouseUpif the short name of me is "Show Field" thenshow card field "hidden"set the name of me to "Hide Field"elsehide card field "hidden"set the name of me to "Show Field"end ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>299</left>
<top>146</top>
<right>472</right>
<bottom>237</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hidden</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (5 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his technique is similar to the one on the previous card, except that the name of the button changes from </span><span class="style3">Show Field</span><span class="style1"> to </span><span class="style3">Hide Field</span><span class="style1"> as the field is shown or hidden.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>This field is both displayed and hiddenby the button.</text>
</content>
<name></name>
<script>on closeCardif the visible of card field "hidden" thenhide card field "hidden"set the name of card button id 1 to "Show Field"end ifpass closeCardend closeCard</script>
</card>
card_5403.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up field with multiple buttons.-- ...by Geneviève Crabe---- see also scripts of buttons "beep 1", "beep 2" and "beep 3"--on mouseUpset the lockscreen to trueshow card field "hidden1"show card button "beep 1"show card button "beep 2"show card button "beep 3"end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>254</left>
<top>115</top>
<right>372</right>
<bottom>221</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hidden1</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>389</left>
<top>86</top>
<right>477</right>
<bottom>108</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flasher</name>
<script>-- Pop-up field with multiple buttons.-- ...by Geneviève Crabe---- see also scripts of buttons "flash 1", "flash 2", "flash 3" and "OK"--on mouseUpset the lockscreen to trueshow card field "hidden2"show card button "flash 1"show card button "flash 2"show card button "flash 3"show card button "OK"end mouseUp</script>
<script>on mouseUprepeat 2 timesbeep 1wait for 10 ticksend repeathideBeeperend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>264</left>
<top>190</top>
<right>364</right>
<bottom>212</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Beep 3</name>
<script>on mouseUprepeat 3 timesbeep 1wait for 10 ticksend repeathideBeeperend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>380</left>
<top>123</top>
<right>501</right>
<bottom>261</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>hidden2</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>389</left>
<top>131</top>
<right>486</right>
<bottom>153</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash 1</name>
<script>on mouseUpflash 1end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>389</left>
<top>197</top>
<right>486</right>
<bottom>219</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash 3</name>
<script>on mouseUpflash 3end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>389</left>
<top>163</top>
<right>486</right>
<bottom>185</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash 2</name>
<script>on mouseUpflash 2end mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>449</left>
<top>234</top>
<right>493</right>
<bottom>255</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OK</name>
<script>on mouseUphideFlasherend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (6 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ometimes, it is useful to have a set of buttons which are not always visible, but only appear in a particular circumstance. The pop-up field technique can be used for this.Create a field, and create the secondary buttons to fit in the field; the field becomes like a secondary button palette. Furthermore, you can have more than one set of secondary buttons in the same place, if only one set will be displayed at a time.The action performed by one of these buttons can include hiding the palette.In the two examples, the button brings up a field containing buttons. In the </span><span class="style3">Beeper</span><span class="style1"> example, pressing a button causes an action, and the pop-up field and buttons then disappear. Note that the button script which hides the field and buttons is in the card script, because it is called by each of the buttons in the pop-up field. In the </span><span class="style3">Flasher</span><span class="style1"> example, the pop-up field with buttons stays until the </span><span class="style3">OK</span><span class="style1"> button is pressed.</span></text>
</content>
<name></name>
<script>on hideBeeperset the lockScreen to truehide card field "hidden1"hide card button "beep 1"hide card button "beep 2"hide card button "beep 3"set the lockScreen to falseend hideBeeperon hideFlasherset the lockScreen to truehide card field "hidden2"hide card button "flash 1"hide card button "flash 2"hide card button "flash 3"hide card button "OK"set the lockScreen to falseend hideFlasher----------------------------------------------------------------------on closeCardhideBeeperhideFlasherpass closeCardend closeCard</script>
</card>
card_33441.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif the short name of me is "Show Controls" thenset the name of me to "Hide Controls"elseset the name of me to "Show Controls"end ifset the visible of cd fld "Controls" to ¬not the visible of cd fld "Controls"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>388</left>
<top>112</top>
<right>478</right>
<bottom>206</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>controls</name>
<script>on mouseDownget the clickline---- the clickLine returns something like "line 1 of card field 1"-- value(it) will return the contents of the line-- do value(it) will execute the line as a HyperTalk command--if it is not empty then do value(it)end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Field (7 of 7)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his is similar to the Flasher example on the previous card, except that in this case a field is used instead of a set of buttons.The </span><span class="style3">clickLine</span><span class="style1"> function is used to determine the line you clicked.Click </span><span class="style3">Show Controls</span><span class="style1"> to see the field, and see the field script.</span><span class="style24">Suggested by Jonathan Cloud.</span></text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>Flash 1Flash 2Flash 3</text>
</content>
<name></name>
<script>on closeCardif the visible of cd fld "controls" thensend mouseUp to cd btn "Hide Controls"end ifpass closeCardend closeCard</script>
</card>
card_3211.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">ou can click and drag anywhere on the card and the mouse location will be displayed in the field on the right.The two numbers represent the number of pixels from the top left corner of the window; the first number is the horizontal distance, and the second number is the vertical distance.Look at the card script to see how it is done.This technique of monitoring mouse movement can be used when you want to allow the user to drag something like a button around the screen. It makes use of the </span><span class="style3">mouseDown</span><span class="style1">, </span><span class="style3">mouseStillDown</span><span class="style1">, and </span><span class="style3">mouseUp</span><span class="style1"> messages.If you click (i.e., mouseDown) in a field and then move outside the field before releasing the mouse, the card will not receive the mouseUp message. This is because a mouseUp message is sent to an object only if it occurs in the same object where the mouseDown occurred. In this case, the problem is alleviated by an </span><span class="style3">idle</span><span class="style1"> handler in the card script which checks if the mouse is up.</span></text>
<script>-- Mouse locator scripts.-- ...by Geneviève Crabe------------------------------------------------------------------------ Detect a mouseDown event at the card level.--on mouseDownput the mouseLoc into line 2 of card field "location"put "mouse down" into line 4 of card field "location"pass mouseDownend mouseDown------------------------------------------------------------------------ Update mouse location while button is pressed.--on mouseStillDownput the mouseLoc into line 2 of card field "location"pass mouseStillDownend mouseStillDown------------------------------------------------------------------------ Detect a mouseUp event at the card level.--on mouseUpput "mouse up" into line 4 of card field "location"pass mouseUpend mouseUp------------------------------------------------------------------------ In case mouseUp was not received (mouseUp will only be sent to-- the object where the mouseUp occurs if it is the same object where-- the mouseDown occurs).--on idleif (the mouse is up) and (line 4 of card field "location" ≠ "mouse up")then put "mouse up" into line 4 of card field "location"end idle------------------------------------------------------------------------ Clean up.--on closeCardput empty into line 2 of cd fld "location"put space into line 4 of cd fld "location" -- preserve italic stylepass closeCardend closeCard</script>
</card>
card_16554.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This mouseDown handler drags the button around the card.--...by Geneviève Crabeon mouseDown---- dh and dv are the horizontal and vertical distances between-- the initial click location and the center of the button--put (item 1 of the clickLoc) - (item 1 of the loc of me) into dhput item 2 of the clickLoc - (item 2 of the loc of me) into dv---- reposition the button, following the mouse position, and-- taking into account dh and dv--repeat until the mouse is upget the mouseLocput (item 1 of it) - dh into newHput (item 2 of it) - dv into newVset the loc of me to newH,newVend repeatend mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Drag a Button</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">sing the technique described in the previous card, you can drag a button on the card.The button script uses the </span><span class="style3">mouseLoc</span><span class="style1"> property to track the mouse location, and the </span><span class="style3">loc</span><span class="style1"> (location) property of the button to move it.</span></text>
</content>
<name>Drag a button</name>
<script>on closeCardset the loc of card button "Drag Me" to 378,100pass closeCardend closeCard</script>
</card>
card_7518.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This script displays text in a field as if it were being typed.-- ...by Geneviève Crabeon mouseUp---- clear the field and click in it--put empty into card field "field1"select text of card field "field1"---- type each chatacter--type "HELLO!!!" & return & return ¬& "This text is being entered from the button script . . ."end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>302</left>
<top>110</top>
<right>461</right>
<bottom>225</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Field1</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>374</left>
<top>239</top>
<right>492</right>
<bottom>261</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Type Slower</name>
<script>-- Script displays text in a field as if it were being typed.-- ...by Geneviève Crabeon mouseUp---- clear the field and click in it--put empty into card field "field1"select text of card field "field1"---- put the string to be typed into a variable str-- and its length in a variable n--put "HELLO!!!" & return & return ¬& "This text is being entered from the button script . . ." into strput length (str) into n---- type each character, with a small delay (60 ticks = 1 second)--repeat with i = 1 to ntype char i of strwait for 10 ticksend repeatend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Click and Enter Text</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he </span><span class="style3">Click and Type</span><span class="style1"> button allows you to position the test cursor in a text field.Once the cursor is positioned, the button script enters text in the field.The </span><span class="style3">Type Slower</span><span class="style1"> button does the same thing, but with a small delay between each letter.</span></text>
</content>
<name>Click and enter text</name>
<script>on closeCardput empty into card field "field1"pass closeCardend closeCard</script>
</card>
card_7833.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Button whose name changes each time it is pressed.-- ...by Geneviève Crabeon mouseUpif the short name of me is "UP" thenset the name of me to "DOWN"-- do processing hereelseset the name of me to "UP"-- do processing hereend ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>357</left>
<top>200</top>
<right>461</right>
<bottom>236</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name>ButtonField</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>359</left>
<top>202</top>
<right>457</right>
<bottom>232</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>-- Transparent button covering a field whose name changes-- each time the button is pressed.-- ...by Geneviève Crabeon mouseUpif card field "ButtonField" is "One" thenput "Two" into card field "ButtonField"-- do processing hereelse if card field "ButtonField" is "Two" thenput "Three" into card field "ButtonField"-- do processing hereelse if card field "ButtonField" is "Three" thenput "One" into card field "ButtonField"-- do processing hereend ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Changing Button Label</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>Here are two techniques which enable you to have a button whose label changes.1. The first technique uses a button, and the script changes the name of the button.2. The second uses a field with a transparent button on top; the contents of the field is changed each time a button is pressed. This is useful if you want to refer to the button by name, and you don't want the name to change.In both cases, each time you click the button, the name will change.</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>One</text>
</content>
<name>Changing button label</name>
<script></script>
</card>
card_8034.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Script detects double click.on mouseUpput "Single Click" into card field "field1"end mouseUpon mouseDoubleClickput "Double Click" into card field "field1"end mouseDoubleClick</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Detect Double-click</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">here is now a </span><span class="style3">mouseDoubleClick</span><span class="style1"> message which is sent when you double-click a button.Try it with this button.</span><span class="style28">Requires HyperCard 2.2.</span></text>
</content>
<name>Detect double-click</name>
<script>on closeCardput empty into card field "field1"pass closeCardend closeCard</script>
</card>
card_8259.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Flashing icon script.-- ...by Geneviève Crabe---- This script sets up a global variable "flash1" to indicate that-- the icon should be flashing; the actual flashing is done in the-- "idle" handler in the card script.---- flash1 is true if the checkbox is checked.on mouseUpglobal flash1put numToChar(240) into card field "field1"put the hilite of me into flash1end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>419</left>
<top>178</top>
<right>464</right>
<bottom>202</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Field2</name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>290</left>
<top>175</top>
<right>365</right>
<bottom>197</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash</name>
<script>-- Flashing icon script.-- ...by Geneviève Crabe---- This script sets up a global variable "flash2" to indicate that-- the icon should be flashing; the actual flashing is done in the-- "idle" handler in the card script.---- flash2 is true if the checkbox is checked.on mouseUpglobal flash2hide card field "field2" -- make sure the icon is onput the hilite of me into flash2end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>290</left>
<top>270</top>
<right>365</right>
<bottom>292</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash</name>
<script>-- Flashing icon script.-- ...by Geneviève Crabe---- This script sets up a global variable "flash3" to indicate that-- the icon should be flashing; the actual flashing is done in the-- "idle" handler in the card script.---- flash1 is true if the checkbox is checked.on mouseUpglobal flash3set the visible of button "button1" to true -- make sure button is onput the hilite of me into flash3end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>419</left>
<top>260</top>
<right>468</right>
<bottom>300</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1006</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Button1</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Flashing Icons</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ere are three techniques you can use if you want flashing icons.1. The first technique consists of a field, where a character is written and erased (in this case, the character option-shift-k in the Chicago font). 2. The second technique consists of a card graphic (it could also be in the background) which has an opaque field on top. The flashing is accomplished by showing and hiding the field.3. The third technique consists of having a button which is made successively visible and invisible.In all cases, the checkbox which start and stop the flashing only set a flag; the </span><span class="style3">idle</span><span class="style1"> handler in the card script does the actual work.Note that the performance can degrade somewhat if you try to flash more than one thing at a time.</span></text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>Ô£ø</text>
</content>
<name>Flashing icons</name>
<script>-- Flashing icons script.-- ...by Geneviève Crabe------------------------------------------------------------------------ The openCard handler initializes everything to non-flashing state.-- Clicking on one of the "Start Flashing" button will start things.on openCardglobal flash1,flash2,flash3put false into flash1put false into flash2put false into flash3---- reset things since we don't know how things were left last time--set the hilite of card button id 2 to falseput numToChar(240) into card field "field1"set the hilite of card button id 5 to falsehide card field "field2"set the hilite of card button id 6 to falseset the visible of button "button1" to truepass openCardend openCard------------------------------------------------------------------------ The idle handler checks whether one or more of the flags "flash1",-- flash2" or "flash3" is set, and if so, performs the flashing.on idleglobal flash1,flash2,flash3---- flash character in field--if flash1 then-- the character numToChar(240) is the Apple logo in Chicagoif card field "field1" = " " then put numToChar(240) into card field "field1"else put " " into card field "field1"end if---- flash graphic icon by showing/hiding an opaque field which is-- in front of it--if flash2 thenset the visible of card field "field2" to ¬not the visible of card field "field2"end if---- flash button--if flash3 thenset the visible of card button "button1" to ¬not the visible of card button "button1"end if--pass idle -- should always pass idleend idle</script>
</card>
card_8571.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This handler uses the selectedLine function which returns-- the selected line of the field.---- The actual line number is "word 2 of the selectedLine" because-- the clickLine function actually returns something like-- "line 2 to 2 of card field 2".---- ... by Geneviève Crabe--on mouseUpput the selectedLine of me into sput word 1 to 2 of s into line 1 of card field "result"put line (word 2 of s) of me into line 2 of card field "result"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>302</left>
<top>264</top>
<right>445</right>
<bottom>301</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>result</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>List Field (1 of 2)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he HyperTalk function </span><span class="style3">selectedLine</span><span class="style1"> is used to determine which line of a field the user clicked on. Note that the field's </span><span class="style3">AutoSelect</span><span class="style1"> property must be on for this to work.This technique can be used when a field contains a list of things from which the user has to choose.Click the scrolling field on the right.See the field script to see how it's done.</span><span class="style28">Requires HyperCard 2.2.</span></text>
<script>on closeCardset the scroll of card field "My List Field" to 0select line 0 of card field "My List Field"put empty into card field "result"pass closeCardend closeCard</script>
</card>
card_23739.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This handler uses the selectedLine function to figure out which line-- of the field the user clicked on, and shows the corresponding line-- in the other field.-- ... by Geneviève Crabeon mouseUpput word 2 of the selectedLine of me into sset the scroll of card field "Français" to ¬(s - 1) * the textHeight of card field "Français"end mouseUp</script>
<text><span class="style1">ere is an example using this technique. There are two fields. The first contains a list of English words, and the second contains the corresponding French words.When you click on an English word, the field script figures out which line you clicked on, for example let's say line 4. The French word is displayed by setting the scroll of the field to </span><span class="style3"> 3 * textHeight</span><span class="style1">i.e., scroll off the first 3 lines so that the 4th word will be displayed.Note that the second field is a scrolling field, but its scroll bar is hidden by an opaque button so that it cannot be scrolled.</span><span class="style28">Requires HyperCard 2.2.</span></text>
<script>on closeCardset the scroll of card field "English" to 0select line 0 of card field "English"set the scroll of card field "Français" to 0pass closeCardend closeCard</script>
</card>
card_10220.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This handler figures out which word in a field you clicked on.-- ... by Geneviève Crabeon mouseUpget the clicktextif it is empty thenget "You clicked on" & return & "empty space in the field."elseget "You clicked on the word" & return & quote & it & quoteend ifput it into card field "result"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>264</left>
<top>256</top>
<right>488</right>
<bottom>293</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>result</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Click on a Word (1 of 3)</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>The clickText function tells you which word was clicked on in the field.Try clicking anywhere on this field.</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he HyperTalk function </span><span class="style3">clickText</span><span class="style1"> is used to determine which word of a field the user clicked on. Note that the field must be locked for this to work.This technique can be used to implement a HyperText interface, where the user can click on arbitrary words in the text.See the field script to see how this works.</span></text>
</content>
<name>Click on a word in a field</name>
<script>on closeCardput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_23481.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This handler figures out which word (or group of words) in-- a field you clicked on.-- ... by Geneviève Crabeon mouseUpget the clicktextif it is empty thenget "You clicked on" & return & "empty space in the field."elseget "You clicked on" & return & quote & it & quoteend ifput it into card field "result"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>306</left>
<top>62</top>
<right>442</right>
<bottom>80</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Show Grouped Text</name>
<script>on mouseUpif the hilite of me then show groupselse hide groupsend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>263</left>
<top>274</top>
<right>487</right>
<bottom>311</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>result</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Click on a Word (2 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">n the previous example, the </span><span class="style3">clicktext</span><span class="style1"> function returns the word the user clicked on. This is fine for single words.But sometimes you want the user to click on an expression composed of two or more words; for this, you select adjacent words, and select the </span><span class="style3">Group</span><span class="style1"> style in the </span><span class="style3">Style</span><span class="style1"> menu. When grouped, the words behave as one word as far as the clickText function is concerned.In the field on the right, the grouped words are </span><span class="style23">clickText function</span><span class="style1">, </span><span class="style23">Grouped text</span><span class="style1"> and </span><span class="style23">Style menu</span><span class="style1">, Try clicking on any of them (also try clicking on other words).You can get HyperCard to display gray underline under all grouped text by using the command </span><span class="style3">show groups</span><span class="style1">. Use the </span><span class="style3">Show Grouped Text</span><span class="style1"> checkbox to see how that works.</span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style1">he </span><span class="style7"><a href="#" class="group">clickText function</a></span><span class="style1"> tells you which word was clicked on in the field. To detect clicking on a group of words like </span><span class="style7"><a href="#" class="group">Grouped Text</a></span><span class="style1">, use the Group style in the </span><span class="style7"><a href="#" class="group">Style menu</a></span><span class="style1">.Try clicking anywhere on this field.</span></text>
</content>
<name></name>
<script>on closeCardif the hilite of cd btn "Show Grouped Text" thenset the hilite of cd btn "Show Grouped Text" to falsehide groupsend ifput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_6375.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This handler figures out which word (or group of words) in-- a field you clicked on.-- ... by Geneviève Crabeon mouseUpput empty into card field "result"put the clicktext into theTextif the textStyle of the clickChunk contains "bold" thenget "You clicked on" & return & quote & theText & quoteput it into card field "result"end ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>261</left>
<top>274</top>
<right>485</right>
<bottom>311</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>result</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>306</left>
<top>62</top>
<right>442</right>
<bottom>80</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Show Grouped Text</name>
<script>on mouseUpif the hilite of me then show groupselse hide groupsend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Click on a Word (3 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ere is an example of the technique described in the previous card.In this case, there are only certain words that we want the user to click on. To give the user a visual cue, we make these words and groups of words </span><span class="style3">bold</span><span class="style1">.In addition to giving the user a visual cue of where to click, this also makes it possible for the script to ignore irrelevant clicks by checking if the text the user clicked on is </span><span class="style3">bold</span><span class="style1">.See the field script.</span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style1">he </span><span class="style6"><a href="#" class="group">clickText function</a></span><span class="style1"> tells you which word was clicked on in the field. To detect clicking on a group of words like </span><span class="style6"><a href="#" class="group">Grouped Text</a></span><span class="style1">, use the </span><span class="style3">Group</span><span class="style1"> style in the </span><span class="style3">Style</span><span class="style1"> menu.</span></text>
</content>
<name></name>
<script>on closeCardput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_10902.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Animated bar button.--... by Geneviève crabeon mouseDown---- get the starting rectangle of the black bar--put the rect of cd btn "vertical bar" into rrepeat until the mouse is up---- get the mouse position which will determine the new-- position of the bar--put item 2 of the mouseLoc into v---- make sure the bar does not go above or below the boundary--put max (v, the top of me) into vput min (v, the bottom of me) into v---- set the new dimensions of the bar--put v into item 2 of rset the rect of cd btn "vertical bar" to rend repeatend mouseDown</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>268</left>
<top>269</top>
<right>339</right>
<bottom>298</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>horizontal bar</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>267</left>
<top>268</top>
<right>445</right>
<bottom>299</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>-- Animated bar button.--... by Geneviève crabeon mouseDown---- get the starting rectangle of the black bar--put the rect of cd btn "horizontal bar" into rrepeat until the mouse is up---- get the mouse position which will determine the new-- position of the bar--put item 1 of the mouseLoc into h---- make sure the bar does not go beyond the boundary--put min (h, the right of me) into hput max (h, the left of me) into h---- set the new dimensions of the bar--put h into item 3 of rset the rect of cd btn "horizontal bar" to rend repeatend mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Moving Bars</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>These are animated bars which you can click and drag, within the given boundaries.Each bar consists of three components:- a rectangle, drawn with the paint tools, which shows the boundary;- a button with its hilite turned on; this is the black bar which is resized as you drag it;- a transparent button on top, which contains the script which resizes the black bar.</text>
</content>
<name>Moving Bars</name>
<script></script>
</card>
card_3603.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownshow card field "hidden"wait until the mouse is uphide card field "hidden"end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Remembering Information</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>136Mon, May 30, 1994</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>Sometimes, you may want to preserve some information after a stack is closed, and even if the user quits HyperCard. You cannot use variables, since their values will be lost.The solution is to use a field which is hidden from the user; contents of fields are always preserved.As an example, there is a field in this card which keeps track of how many times the card was opened, and the date of the last access (check the card script). The field is hidden from the user, but a script could make use of this value. In case you are curious, I have provided a button for you to peek at the field (hold down the button to see it).</text>
</content>
<name>Remembering information</name>
<script>-- Use a hidden field to keep track of how many times this card-- has been accessed.-- ... by Geneviève Crabeon openCardadd 1 to line 1 of card field "hidden"put the abbrev date into line 3 of card field 1pass openCardend openCard</script>
</card>
card_7263.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This script copies the contents of a field into the clipboard.-- ...by Geneviève Crabeon mouseUpif card field 1 is empty thenanswer "The field is empty." & return ¬& "You must enter some text in the field first."elseselect text of card field 1doMenu "Copy Text" -- copy contents into clipboardselect empty -- de-selects the textend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>303</left>
<top>102</top>
<right>469</right>
<bottom>173</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>255</left>
<top>199</top>
<right>382</right>
<bottom>221</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Paste Text</name>
<script>-- This script pastes the contents of the clipboard into a field.-- ...by Geneviève Crabeon mouseUpselect text of card field 2doMenu "Paste Text" -- replace contents of field with clipboardend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>303</left>
<top>224</top>
<right>469</right>
<bottom>295</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Copy and Paste Text</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">f you use HyperCard in conjunction with other applications, you might want to copy and paste text between fields and the clipboard.The </span><span class="style3">Copy Text</span><span class="style1"> button on the right will copy the text from the top field into the clipboard. It uses the </span><span class="style3">select</span><span class="style1"> command.The </span><span class="style3">Paste Text</span><span class="style1"> button selects the text of the second field, and pastes the clipboard text using the </span><span class="style3">Paste Text</span><span class="style1"> menu command.Try changing the text in the top field, and try the Copy and Paste again.</span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>This is the text which will be copied and pasted below.</text>
</content>
<name>Copy and Paste text</name>
<script>on closeCardput "This is the text which will be copied and pasted below." ¬into card field 1put empty into card field 2pass closeCardend closeCard</script>
</card>
card_6480.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up a picture by hiding an opaque field which is in front of it.-- ...by Geneviève Crabeon mouseUplock screenhide card field "HidePic"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>320</left>
<top>104</top>
<right>420</right>
<bottom>126</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Hide Picture</name>
<script>-- Hide a picture by showing an opaque field in front of it.-- ...by Geneviève Crabeon mouseUplock screenshow card field "HidePic"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>365</left>
<top>133</top>
<right>465</right>
<bottom>155</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash Picture</name>
<script>-- Flash a picture by showing and hiding an opaque field which is-- in front of the picture.-- ...by Geneviève Crabeon mouseUpset cursor to 4 -- stopwatchrepeat 5 timesshow card field "HidePic"wait 10 tickshide card field "HidePic"wait 5 ticksend repeatend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Graphics (1 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ou can make it appear that a picture pops up, by covering it with an opaque field. In a script, hiding the field will make it appear that the picture is popping up. The </span><span class="style3">Show Picture</span><span class="style1"> and </span><span class="style3">Hide Picture</span><span class="style1"> buttons use a dissolve effect, to enhance the pop-up effect.On the right, you can click the buttons to show and hide the picture.To see the field which hides the picture, select the field tool while the picture is hidden.The picture can be flashed by doing show and hide in a repeat loop.Make sure that when you create the field, you set the </span><span class="style3">lockText</span><span class="style1"> option, otherwise the cursor will turn to an I-beam when passing over it.</span></text>
</content>
<name>Pop-up graphics</name>
<script>on closeCardshow card field "HidePic"pass closeCardend closeCard</script>
</card>
card_6792.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Pop-up a picture by hiding an opaque button which is in front of it.-- ...by Geneviève Crabeon mouseUplock screenhide card button "HidePic"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>320</left>
<top>104</top>
<right>420</right>
<bottom>126</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Hide Picture</name>
<script>-- Hide a picture by showing an opaque button in front of it.-- ...by Geneviève Crabeon mouseUplock screenshow card button "HidePic"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>365</left>
<top>133</top>
<right>465</right>
<bottom>155</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Flash Picture</name>
<script>-- Flash a picture by showing and hiding an opaque button which is-- in front of the picture.-- ...by Geneviève Crabeon mouseUpset cursor to 4 -- stopwatchrepeat 5 timesshow card button "HidePic"wait 10 tickshide card button "HidePic"wait 5 ticksend repeatend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>330</left>
<top>208</top>
<right>404</right>
<bottom>270</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>HidePic</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Pop-up Graphics (2 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ou can use a similar technique to show and hide a picture on a black background.Instead of an opaque field, you use an opaque button with its </span><span class="style3">hilite</span><span class="style1"> turned on (this makes it black).To create such a button, first create a new opaque button, in this case the button is called </span><span class="style3">HidePic</span><span class="style1">. Then, type the following in the message box:</span><span class="style22">set the hilite of cd btn "HidePic" to true</span><span class="style1">This will make the button black.Everything else works just like the previous card.</span></text>
<text>If you are designing a map for your stack, you can use a similar pop-up graphics technique for the arrows which show where you are.Click the buttons to show the various arrows. All the arrow are already there, but at any time, all but one are hidden by an opaque field. Select the field tool to see the fields.You can make the arrow flash a few times by doing show and hide in a repeat loop.See the button scripts and the card script to see how it is done.An alternative technique for doing this would be to make the arrows into icon buttons, and then showing and hiding the buttons. The drawback is that you are limited to the size of an icon. If you can live with that, it is a good technique.</text>
</content>
<name></name>
<script>on openCard -- we start with the arrow for box 1 showingglobal curFieldput "box1" into curFieldpass openCardend openCard------------------------------------------------------------------------ This handler displays an arrow corresponding to the button pressed.-- ... by Geneviève Crabeon showArrow fieldNameglobal curField---- hide arrow which is currently showing--show card field curField---- optional flashing loop--repeat three timeshide card field fieldName -- show new arrowwait 5 ticksshow card field fieldName -- hide it again, for flashingwait 10 ticksend repeat---- show new arrow--hide card field fieldName -- show arrowput fieldName into curField -- remember which arrow is showingend showArrow----------------------------------------------------------------------on closeCard -- go back to where we started, for next timeglobal curFieldshow card field curFieldhide card field "box1"pass closeCardend closeCard</script>
</card>
card_11573.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpanswer "Selected button:" && ¬the short name of (the selectedButton of family 1)end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Radio Buttons</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his card illustrates an implementation of Macintosh radio buttons, using the new </span><span class="style3">Family</span><span class="style1"> property of buttons introduced in HyperCard 2.2.The five buttons are in Family 1; see the </span><span class="style3">Button Info</span><span class="style1"> for the buttons.No script is required to implement the radio button behaviour.The </span><span class="style3">Selected Button?</span><span class="style1"> button uses the </span><span class="style3">selectedButton</span><span class="style1"> function to display the name of the selected radio button.</span><span class="style28">Requires HyperCard 2.2.</span></text>
</content>
<name>Radio buttons</name>
<script></script>
</card>
card_13233.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">he original Home stack from Apple contained a script which automatically displays the current time in a field on the Home card.You can implement the same function on any card. Simply create a field called </span><span class="style3">Time</span><span class="style1">, and put an idle script in the card script which will update the time.Look at the card script to see how it is done.</span></text>
</content>
<name>Current time in a field</name>
<script>-- This idle script continuously updates the field "Time" with the-- current time.-- ...from the original Home stack from Appleon idleput the time into card field "Time"pass idleend idle</script>
</card>
card_13363.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- The "answer" command displays a dialog box, with a message,-- and one, two, or three buttons.---- The first parameter is the prompt string, and the other three-- parameters are the labels of the three buttons. You can specify-- one, two, or three buttons. The last one will be the default.-- This example has no buttons specified, so the "answer" command-- will display an OK button.---- After calling "answer", the variable "it" contains the label of-- the button the user clicked. This script uses the card field "result"-- to display the returned value.--on mouseUpput empty into card field "result"answer "This is a simple dialog with the default OK button."put "Result:" & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>292</left>
<top>130</top>
<right>482</right>
<bottom>152</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Answer with 3 buttons…</name>
<script>-- The "answer" command displays a dialog box, with a message,-- and one, two, or three buttons.---- The first parameter is the prompt string, and the other three-- parameters are the labels of the three buttons. You can specify-- one, two, or three buttons. The last one will be the default.-- This example has three buttons.---- After calling "answer", the variable "it" contains the label of-- the button the user clicked. This script uses the card field "result"-- to display the returned value.--on mouseUpput empty into card field "result"answer "This dialog contains this message, and three buttons." ¬with "Click me" or "No, Click Me" or "OK"put "Result:" & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>266</left>
<top>274</top>
<right>490</right>
<bottom>311</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>result</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>266</left>
<top>174</top>
<right>401</right>
<bottom>196</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About Box…</name>
<script>-- You can use the Answer command to create a simple About dialog-- for your stack.--on mouseUpput empty into card field "result"answer "HyperCard Techniques v5.0" & return ¬& "by Geneviève Crabe" & return & return & "This stack is Freeware."put "Result:" & return & it into card field "result"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Dialogs (1 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style3">nswer</span><span class="style1"> command.The Answer command displays a simple dialog box with a message, and up to three buttons.The message can contain up to 256 characters; the dialog box will size itself according to the length of the message.The </span><span class="style3">About Box…</span><span class="style1"> button shows how you can use the Answer command to create a simple About dialog for your stack.See the button scripts for detailed explanations of the Answer command.</span></text>
</content>
<name>Dialogs</name>
<script>on closeCardput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_29033.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- The "ask" command displays a small dialog box, with a field in which-- the user can enter text, and OK and Cancel buttons.---- The first parameter is the prompt string, and the second parameter,-- which is optional, contains a default string which will be put into-- the text field. This example has no default string.---- After calling "ask", the variable "it" contains the contents of the-- text field. If the user entered nothing, or clicked the Cancel button,-- "it" will be empty.--on mouseUpput empty into card field "result"ask "Please enter your name:"put "Result:" & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>292</left>
<top>164</top>
<right>482</right>
<bottom>186</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Ask with default…</name>
<script>-- The "ask" command displays a small dialog box, with a field in which-- the user can enter text, and OK and Cancel buttons.---- The first parameter is the prompt string, and the second parameter,-- which is optional, contains a default string which will be put into-- the text field---- After calling "ask", the variable "it" contains the contents of the-- text field. If the user entered nothing, or clicked the Cancel button,-- "it" will be empty.--on mouseUpput empty into card field "result"ask "Please enter your name:" with "Jean-Luc Picard"put "Result:" & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>264</left>
<top>274</top>
<right>488</right>
<bottom>311</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>result</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Dialogs (2 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style3">sk</span><span class="style1"> command.The Ask command displays a simple dialog box with a prompt, a text field for you to type in, and Cancel and OK buttonsThe message can contain up to 256 characters; the dialog box will size itself according to the length of the message.See the button scripts for detailed explanations of the Ask command.</span></text>
</content>
<name></name>
<script>on closeCardput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_30248.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- The "answer file" command displays a Standard File dialog, the one-- you usually see when asked to select a file.---- The first parameter is the prompt string. The second parameter is-- a file type; if this parameter is specified, only files of this type-- will be displayed in the dialog. This example has no file type.---- After calling "answer file", the variable "it" contains the full-- path name of the file selected, or empty if the user clicked the-- Cancel button. This script uses the card field "result" to display-- the returned value.--on mouseUpput empty into card field "result"answer file "Choose a file, any file:"put "Result:" & return & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>292</left>
<top>164</top>
<right>482</right>
<bottom>186</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Answer File with Type…</name>
<script>-- The "answer file" command displays a Standard File dialog, the one-- you usually see when asked to select a file.---- The first parameter is the prompt string. The second parameter is-- a file type; if this parameter is specified, only files of this type-- will be displayed in the dialog. Examples of file types are-- "TEXT" for text files, "PICT" for PICT files, "STAK" for HyperCard-- stacks, and "APPL" for applications.---- After calling "answer file", the variable "it" contains the full-- path name of the file selected, or empty if the user clicked the-- Cancel button. This script uses the card field "result" to display-- the returned value.--on mouseUpput empty into card field "result"answer file "Select a HyperCard stack:" of type "STAK"put "Result:" & return & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>258</left>
<top>250</top>
<right>493</right>
<bottom>327</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>result</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Dialogs (3 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style3">nswer File</span><span class="style1"> command.The Answer File command displays a dialog where you can choose a file. This is similar to the dialog you get in most applications when you choose </span><span class="style3">Open…</span><span class="style1"> from the </span><span class="style3">File</span><span class="style1"> menu.You can specify a prompt which will go at the top of the dialog, and you can also specify a file type to restrict the files you can choose from.The command returns the full path name of the file you selected.See the button scripts for detailed explanations of the Answer File command.</span></text>
</content>
<name></name>
<script>on closeCardput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_30576.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- The "ask file" command displays a Standard File dialog, the one-- you usually see when asked to name a file to be saved.---- The first parameter is the prompt string, and the second parameter,-- which is optional, contains a default file name which will be put-- into the text field. This example has no default string.---- After calling "ask file", the variable "it" contains the full-- path name of the file specified, or empty if the user clicked the-- Cancel button. This script uses the card field "result" to display-- the returned value.--on mouseUpput empty into card field "result"ask file "Save the file as:"put "Result:" & return & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>292</left>
<top>164</top>
<right>482</right>
<bottom>186</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Ask File with default…</name>
<script>-- The "ask file" command displays a Standard File dialog, the one-- you usually see when asked to name a file to be saved.---- The first parameter is the prompt string, and the second parameter,-- which is optional, contains a default file name which will be put-- into the text field.---- After calling "ask file", the variable "it" contains the full-- path name of the file specified, or empty if the user clicked the-- Cancel button. This script uses the card field "result" to display-- the returned value.--on mouseUpput empty into card field "result"ask file "Save the file as:" with "My File"put "Result:" & return & return & it into card field "result"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>258</left>
<top>250</top>
<right>493</right>
<bottom>327</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>result</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Dialogs (4 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style3">sk File</span><span class="style1"> command.The Ask File command displays a dialog where you can specify a location and name for a new file. This is similar to the dialog you get in most applications when you choose </span><span class="style3">Save As</span><span class="style1">… from the </span><span class="style3">File</span><span class="style1"> menu.You can specify a prompt which will go at the top of the dialog, and you can also specify a default file name.The command returns the full path name of the file you specified.See the button scripts for detailed explanations of the Ask File command.</span></text>
</content>
<name></name>
<script>on closeCardput empty into card field "result"pass closeCardend closeCard</script>
</card>
card_20851.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This script creates a text file and writes text into it.-- ... by Geneviève Crabeon mouseUp---- prompt for the file name--ask file "Enter a name for the file" with "My Text File"---- the file name is put in the variable "it";-- if you clicked Cancel, "it" will be empty--if it is not empty then---- open the file--put it into fileNameopen file fileName---- for the purpose of this example, prompt for some text to put-- into the file--repeat with i = 1 to 3ask "Enter text for line " & i with "Line " & iwrite it & return to file fileNameend repeat---- close the file--close file fileNameend ifend mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>314</left>
<top>203</top>
<right>467</right>
<bottom>262</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>316</left>
<top>205</top>
<right>463</right>
<bottom>258</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Read from file</name>
<script>-- This script reads a text file and puts the text into a field.-- ... by Geneviève Crabeon mouseUp---- prompt for fileName--answer file "Find the file you created:" of type "TEXT"---- the file name is put in the variable "it";-- if you clicked Cancel, "it" will be empty--if it is not empty then---- open the file--put it into fileNameopen file fileName--if the result is empty then -- open successfulshow card field "Text from file"put "Contents of the file:" & return & return into ¬card field "Text from file"show card button "OK"---- read the contents of the file into a field--repeatread from file fileName until returnif it is empty then exit repeatput it after card field "Text from file"end repeat---- close the file--close file fileName--else -- open failedanswer "Error trying to open file."end ifend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>69</left>
<top>87</top>
<right>442</right>
<bottom>265</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Text from file</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>241</top>
<right>421</right>
<bottom>261</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OK</name>
<script>on mouseUphide card button "OK"hide card field "Text from file"put empty into card field "Text from file"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Read/Write Text File</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Click here tocreate a file andwrite text into it.</text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>Click here toread the textfrom the file.</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ometimes, you want to be able to store text in a text file, or read text from a text file. These buttons use the </span><span class="style3">Ask File</span><span class="style1"> and </span><span class="style3">Answer File</span><span class="style1"> commands described earlier.The scripts of these two buttons show how to:</span><span class="style3">1. Create a file</span><span class="style1">. You will be asked for the name to be given to the file. </span><span class="style3">2. Store text into the file.</span><span class="style1"> You will be prompted for three lines of text, and these will be stored in the file.</span><span class="style3">3. Read text from the file.</span><span class="style1"> After you have used the top button to create the file, use the bottom button to read back the text from the file, and display it in a field on the screen.Later, after you quit from HyperCard, you will be able to see the text file, and look at its contents using any word processor.To see how it's done, look at the two button scripts. This can be adapted to a lot of uses, for example storing contents of fields in a text file for later use in a document.</span><span class="style3">NOTE:</span><span class="style1"> Make sure you have enough room on the disk you are using.</span></text>
</content>
<name>Read/Write text file</name>
<script></script>
</card>
card_9858.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>There is a script in this card which will cause all the card buttons on the card to be highlighted when the mouse pointer is on top of them.Try to move the mouse on top of any button (you don't need to click), and the button will be highlighted.Check the card script.</text>
</content>
<name>Highlighting buttons</name>
<script>-- These scripts will cause all card buttons to be-- highlighted when the mouse pointer is on top of them.on mouseEnter -- check if the objected entered is a card buttonif "card button" is in the targetthen set the hilite of the target to trueend mouseEnteron mouseLeaveif "card button" is in the targetthen set the hilite of the target to falseend mouseLeave</script>
</card>
card_14000.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">ere are some examples of the new </span><span class="style3">Oval</span><span class="style1"> buttons available in HyperCard 2.2.Note that the buttons themselves are transparent; the ovals you see on the right were drawn with the oval tool.Click the buttons to see the highlighting.</span><span class="style28">Requires HyperCard 2.2.</span></text>
</content>
<name>Oval Buttons</name>
<script></script>
</card>
card_15846.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Visual effect with dissolve: keeps going until the mouse is clicked-- ...by Geneviève Crabeon mouseUppush card -- remember where we came fromrepeat until the mouseClickvisual effect dissolve slowlygo to card "NCMC"if the mouseClick then exit repeatwait for 30 ticksvisual effect dissolve slowlygo to card "PD Lib"if the mouseClick then exit repeatwait for 30 ticksend repeatvisual effect dissolvepop card -- return where we came fromend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Visual Effect Examples (1 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">f you use HyperCard for interactive presentations, you can achieve some interesting effects using the standard HyperTalk visual effects, and some simple scripts.When you press the button on the right, you will see a visual effect which involves two cards. See the button script.Notice that the </span><span class="style3">dissolve</span><span class="style1"> effect is only visible where the two cards differ. This is true of many of the visual effects, and can be used to create interesting illusions.</span></text>
</content>
<name>Visual Effect examples</name>
<script></script>
</card>
card_16896.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Visual effect using wipe to show growing bar chart.-- ...by Geneviève Crabeon mouseUpset the cursor to watchpush card -- remember where we came fromvisual effect iris opengo to card "Chart0"repeat 4 timeswait for 20 ticksvisual effect wipe right slowlygo to next cardend repeatwait for 40 ticksvisual effect iris closepop card -- return where we came fromend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Visual Effect Examples (2 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his effect uses the </span><span class="style3">wipe right</span><span class="style1"> visual effect with five cards to show a growing bar chart.See the button script for details.</span></text>
</content>
<name></name>
<script></script>
</card>
card_4622.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Visual effect using wipe to show growing bar chart.-- ...by Geneviève Crabeon mouseUpset the cursor to watchpush card -- remember where we came fromvisual effect iris opengo to card "Chart0"repeat 4 timeswait for 20 ticksvisual effect dissolve slowlygo to next cardend repeatwait for 40 ticksvisual effect iris closepop card -- return where we came fromend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Visual Effect Examples (3 of 3)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his effect uses the </span><span class="style3">dissolve</span><span class="style1"> visual effect with the same bar chart.See the button script for details.</span></text>
</content>
<name></name>
<script></script>
</card>
card_32725.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Visual Effects Workshop script.-- ... by Geneviève Crabeon mouseUpset the cursor to watch---- get the values from all the popup menus---- we must use button IDs instead of names because there-- is more than one button with the same name---- note regarding the Speed parameter: we used "normal"-- in the pop-up menu, but to get normal speed, you just-- omit the speed parameter in the command\--put the selectedText of cd btn id 1 into effectName1put the selectedText of cd btn id 7 into speedName1if speedName1 = "normal" then put empty into speedName1put the selectedText of cd btn id 8 into imageName1put the selectedText of cd btn id 11 into effectName2put the selectedText of cd btn id 13 into speedName2if speedName2 = "normal" then put empty into speedName2---- check the Second Effect checkbox--put the hilite of cd btn "Second Effect" into doSecondEffectif doSecondEffect and (imageName1 = "card") thenanswer "In order to see the second effect, you must choose" ¬&& "something other than Card Image for the Image parameter" ¬&& "in the first effect."exit mouseUpend if---- set up the effect(s) and go to the Map card;-- wait for one second and come back--push cardvisual effect effectName1 speedName1 to imageName1if doSecondEffect thenvisual effect effectName2 speedName2end ifgo to card "map"wait for 1 secondpop cardend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>326</left>
<top>241</top>
<right>429</right>
<bottom>263</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Second Effect</name>
<script>on mouseUp---- enable or disable the pop-up menus according to the-- state of the checkbox--set the enabled of cd btn id 11 to the hilite of meset the enabled of cd btn id 13 to the hilite of meend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>269</left>
<top>271</top>
<right>485</right>
<bottom>288</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>52</titleWidth>
<selectedLines>
<integer>4</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Effect:</name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>269</left>
<top>301</top>
<right>485</right>
<bottom>318</bottom>
</rect>
<style>popup</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>52</titleWidth>
<selectedLines>
<integer>3</integer>
</selectedLines>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Speed:</name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>392</left>
<top>101</top>
<right>494</right>
<bottom>118</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Show Commands</name>
<script>-- Visual Effects Workshop script.-- ... by Geneviève Crabeon mouseUpset the cursor to watch---- build command 1--put the selectedText of cd btn id 1 into effectNameput the selectedText of cd btn id 7 into speedNameput the selectedText of cd btn id 8 into imageNameif speedName = "normal" thenif imageName = "card" thenput "visual effect" && effectName into card field "effects"elseput "visual effect" && effectName && "to" ¬&& imageName into card field "effects"end ifelseif imageName = "card" thenput "visual effect" && effectName && speedName ¬into card field "effects"elseput "visual effect" && effectName && speedName ¬&& "to" && imageName into card field "effects"end ifend if---- build command 2--if the hilite of cd btn "Second Effect" thenput the selectedText of cd btn id 11 into effectNameput the selectedText of cd btn id 13 into speedNameif speedName = "normal" thenput "visual effect" && effectName ¬into line 2 of card field "effects"elseput "visual effect" && effectName && speedName ¬into line 2 of card field "effects"end ifend if--lock screenshow card field "effects"show card button "Hide Commands"unlock screen with zoom openend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>28</left>
<top>70</top>
<right>501</right>
<bottom>125</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>effects</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>392</left>
<top>101</top>
<right>494</right>
<bottom>118</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Hide Commands</name>
<script>on mouseUphide mehide card field "effects"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Visual Effects Workshop</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>Barn Door OpenBarn Door CloseCheckerboardDissolveIris OpenIris ClosePush LeftPush RightPush UpPush DownScroll LeftScroll RightScroll UpScroll DownShrink to TopShrink to CenterShrink to BottomStretch from TopStretch from CenterStretch from BottomVenetian BlindsWipe LeftWipe RightWipe UpWipe DownZoom InZoom Out</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>Very SlowlySlowlyNormalFastVery Fast</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>CardInverseBlackGrayWhite</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he buttons on this card will let you try all the different visual effects available in HyperCard.You can choose the effect and other parameters from the pop-up menus, and then click the </span><span class="style3">Show Effect</span><span class="style1"> button to see the special effect.Did you know that you can have more than one special effect? Well, you can. Click the </span><span class="style3">Second Effect</span><span class="style1"> checkbox, and you can define a second effect. Note that in order to see the second effect, you must choose something other than </span><span class="style3">Card Image</span><span class="style1"> for the </span><span class="style3">Image</span><span class="style1"> parameter. In fact, you can string even more effects together if you like.The </span><span class="style3">Show Effect</span><span class="style1"> button script brings it all together. In the button script, </span><span class="style3">the selectedText</span><span class="style1"> property returns the currently selected option in the pop-up menu buttons.The </span><span class="style3">Show Commands</span><span class="style1"> button will display a field containing the </span><span class="style3">Visual Effect</span><span class="style1"> commands as defined by the pop-up menus, in a field from which you can copy them into your own scripts.</span><span class="style28">Some effects require HyperCard 2.2.</span></text>
</content>
<content>
<layer>card</layer>
<id>11</id>
<text>Barn Door OpenBarn Door CloseCheckerboardDissolveIris OpenIris ClosePush LeftPush RightPush UpPush DownScroll LeftScroll RightScroll UpScroll DownShrink to TopShrink to CenterShrink to BottomStretch from TopStretch from CenterStretch from BottomVenetian BlindsWipe LeftWipe RightWipe UpWipe DownZoom InZoom Out</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>Very SlowlySlowlyNormalFastVery Fast</text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>visual effect Barn Door Open Slowly</text>
</content>
<name>Visual Effects Workshop</name>
<script>on closeCardif the visible of card button "Hide Commands" thenhide card button "Hide Commands"hide card field "effects"end ifpass closeCardend closeCard</script>
</card>
card_16304.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">ometimes, you want to keep track of when a field in a card is changed by the user; you can use this if, for example, you want to print only the cards which have changed since the last time you printed it.This trick involves a card script which puts the current date in a field whenever any field in the card is changed. It uses the </span><span class="style3">closeField</span><span class="style1"> message which is generated after the contents of a field have changed, when the user clicks outside the field.To try this, add or change some of the text in the field on the right, then click anywhere outside the field. The date below will change to today's date.In this case, the </span><span class="style3">closeField</span><span class="style1"> handler is in the </span><span class="style3">card script</span><span class="style1">, so the date will be updated if any field on the card is changed. If you want this to apply only to one field, you can put the handler in the </span><span class="style3">field script</span><span class="style1">.</span></text>
</content>
<name>Date of last change</name>
<script>-- This script will put the current date in the field "Change Date"-- whenever any field on this card is changed.on closeFieldput the date into card field "Change Date"end closeField</script>
</card>
card_20250.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This script will add a line to the scrolling field,-- then simulate a click at the bottom of the scroll bar to-- make it scroll if it needs to.-- ... by Geneviève Crabe (technique suggested by Dave Priest)on mouseUpglobal numLines -- initialized in the card script---- add a line of text to the scrolling field--add 1 to numLinesif numLines = 1 thenput "Line 1" into card field "scrollField"elseput return & "Line " & numLines after card field "scrollField"end if---- figure out where to click (on the scroll bar)...--put the rect of card field "scrollField" into fieldRectput ( item 3 of fieldRect) - 5 into horizCoordput (item 4 of fieldRect) - 17 into vertCoord---- ...and click there--click at horizCoord,vertCoordend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Auto-Scrolling Field</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ometime, you may be in a situation where a script is adding lines of text to a scrolling field automatically. After the visible part of the field is full, you can't see the new text until the script is finished and you can scroll the field.The </span><span class="style3">Add a line</span><span class="style1"> button on the right adds a new line to the scrolling field every time you click it. In addition, it simulates a click of the mouse in the lower part of the scroll bar, which will cause the field to scroll. So you can see each line as it is being added.Check the button script to see how it's done.This technique will work as long as the amount of text added at each step is less than a "page" full.</span></text>
</content>
<name>Auto-scrolling field</name>
<script>on openCard -- initialize number of lines in the fieldglobal numLinesput 0 into numLinespass openCardend openCardon closeCard -- empty the field for next timeput empty into card field "scrollField"set the scroll of card field "scrollField" to 0pass closeCardend closeCard</script>
</card>
card_15977.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpanswer "HyperCard version: " & (the version) with "OK"end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>267</left>
<top>186</top>
<right>367</right>
<bottom>208</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Disk Space</name>
<script>on mouseUpput the diskSpace div 1024 into dSpace-- (divide by 1024 to get kilobytes)answer "Disk space available: " & dSpace & "k bytes." with "OK"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>366</left>
<top>229</top>
<right>476</right>
<bottom>251</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Shift key</name>
<script>on mouseUpif the shiftKey is up then answer "The SHIFT key is up." with "OK"else answer "The SHIFT key is down." with "OK"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>323</left>
<top>133</top>
<right>477</right>
<bottom>155</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>System Version</name>
<script>on mouseUpanswer "System version: " & (the systemVersion) with "OK"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>366</left>
<top>255</top>
<right>476</right>
<bottom>277</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Option key</name>
<script>on mouseUpif the optionKey is up then answer "The OPTION key is up." with "OK"else answer "The OPTION key is down." with "OK"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>366</left>
<top>281</top>
<right>476</right>
<bottom>303</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Command key</name>
<script>on mouseUpif the commandKey is up then answer "The COMMAND key is up." with "OK"else answer "The COMMAND key is down." with "OK"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Useful Functions</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he following properties can be useful.The </span><span class="style3">version</span><span class="style1"> tells you which version of HyperCard is running. This is important if you use certain commands or functions which are only available in a newer version of HyperCard; you can check which version is in use, and warn the user if he is using an older one. Click the button to see the value of the property. The </span><span class="style3">systemVersion</span><span class="style1"> tells you which version of the System is running. Click the button to see the value of the property. The </span><span class="style3">diskSpace</span><span class="style1"> is a property you can check in a script if you want to be sure there is enough space on the current disk to perform certain operations. Click the button to see the value of the property. The </span><span class="style3">shiftKey</span><span class="style1"> is a function you can use to find out if the Shift key is up or down; for example, you might want do something different in a button script depending on whether the user is holding down the Shift key. Try clicking the button, then try it again with the Shift key held down.The </span><span class="style3">optionKey</span><span class="style1"> and </span><span class="style3">the commandKey</span><span class="style1">. functions are similar.See the button scripts to see how to get the value of the properties.</span></text>
</content>
<name>Useful functions</name>
<script></script>
</card>
card_31060.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">f you have an extended keyboard, you can use a script to assign handlers to the function keys.In the </span><span class="style3">card</span><span class="style1"> script, there is a handler which performs the commands described on the right; try out the function keys F5 to F8 if your keyboard has them.</span></text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text><span class="style3">unction Keys: F5</span><span class="style1">: HyperCard Version</span><span class="style3"> F6</span><span class="style1">: System Version</span><span class="style3"> F7</span><span class="style1">: Disk Space</span><span class="style3"> F8</span><span class="style1">: Random Number</span></text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text><span class="style3">OTE</span><span class="style1">: some extensions require you to use certain keys like Function keys or Control keys for special functions (QuicKeys for example). Therefore, it is possible that the keys used here will cause something else to happen on your Mac, because extensions will intercept the key presses before they get to HyperCard.</span><span class="style31"></span></text>
</content>
<name>Function Keys</name>
<script>on functionKey xif x = 5 thenanswer "HyperCard version: " & (the version)else if x = 6 thenanswer "System version: " & (the systemVersion)else if x = 7 thenput the diskSpace div 1024 into dSpace-- (divide by 1024 to get kilobytes)answer "Disk space available: " & dSpace & "k bytes."else if x = 8 thenput random (100) into nanswer "Random number between 1 and 100: " & nend ifend functionKey</script>
</card>
card_29816.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">imilarly, you can assign commands to control-key sequences.In the </span><span class="style3">card</span><span class="style1"> script, there is a handler which performs the commands described on the right; try out the control key sequences CNTRL-a to CNTRL-d if your keyboard has a control key.There is a number corresponding to each key value:</span><span class="style26"> Value Key Pressed</span><span class="style27"> 1 a, home 2 b, Enter 3 c 4 d, end 5 e, help 6 f 7 g 8 h, delete 9 i, tab 10 j 11 k, page up 12 l, page down 13 m, Return 14 n 15 o 16 p, all function keys 17 q 18 r 19 s 20 t 21 u 22 v 23 w 24 x 25 y 26 z 27 [, esc, clear 28 \, left arrow 29 ], right arrow 30 up arrow 31 -, down arrow 39 ' 42 * (keypad) 43 + (keypad) 44 , 45 - (keypad) 46 . 47 / 48 0 49 1 50 2 51 3 52 4 53 5 54 6 55 7 56 8 57 9 59 ; 61 = 96 ~127 del</span></text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text><span class="style3">ontrol Keys: CNTRL-a</span><span class="style1">: HyperCard Version</span><span class="style3"> CNTRL-b</span><span class="style1">: System Version</span><span class="style3"> CNTRL-c</span><span class="style1">: Disk Space</span><span class="style3"> CNTRL-d</span><span class="style1">: Random Number</span></text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text><span class="style3">OTE</span><span class="style1">: some extensions require you to use certain keys like Function keys or Control keys for special functions (QuicKeys for example). Therefore, it is possible that the keys used here will cause something else to happen on your Mac, because extensions will intercept the key presses before they get to HyperCard.</span></text>
</content>
<name>Control Keys</name>
<script>on controlKey xif x = 1 then -- CNTRL-aanswer "HyperCard version: " & (the version)else if x = 2 then -- CNTRL-banswer "System version: " & (the systemVersion)else if x = 3 then -- CNTRL-cput the diskSpace div 1024 into dSpace-- (divide by 1024 to get kilobytes)answer "Disk space available: " & dSpace & "k bytes."else if x = 4 then -- CNTRL-dput random (100) into nanswer "Random number between 1 and 100: " & nend ifend controlKey</script>
</card>
card_21603.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUplock screenshow card button "Title"show card field "Index Field"show card button "Close"unlock screen with zoom openend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>296</left>
<top>113</top>
<right>455</right>
<bottom>129</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Title</name>
<script></script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>296</left>
<top>129</top>
<right>455</right>
<bottom>243</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Index Field</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>217</top>
<right>451</right>
<bottom>239</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Close</name>
<script>on mouseUplock screenhide card button "Title"hide card field "Index Field"hide card button "Close"unlock screen with zoom closeend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Inverted Text (1 of 2)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">lick the </span><span class="style3">Show It</span><span class="style1"> button to see a new pop-up field.The pop-up field has three parts. First, there is the field itself. Second, there is the </span><span class="style3">Close</span><span class="style1"> button; these two are similar to the ones shown in one of the pop-up field examples earlier in the stack.The third component is the </span><span class="style3">Title bar</span><span class="style1"> which consists of another button. The inverted effect is achieved by setting the</span><span class="style3"> hilite</span><span class="style1"> property of the button. After creating a rectangle button named Title, I typed the following in the message box:</span><span class="style22">set the hilite of card button "Title" to true</span><span class="style1">Look at the scripts for the </span><span class="style3">Show it</span><span class="style1"> and </span><span class="style3">Close</span><span class="style1"> button. Also note how the </span><span class="style3">zoom</span><span class="style1"> visual effect is used.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>This field could contain some information or an index of items to click on...</text>
<script>on mouseUpset the lockScreen to trueshow card button "Title"show card field "Index Field"show card button "Close"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>295</left>
<top>110</top>
<right>465</right>
<bottom>132</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Title</name>
<script></script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>295</left>
<top>129</top>
<right>465</right>
<bottom>243</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Index Field</name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>298</left>
<top>113</top>
<right>314</right>
<bottom>129</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3071</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Close</name>
<script>on mouseDownset the icon of me to "Clicked Close Box"repeat until the mouse is upif the mouseLoc is within the rect of me thenset the icon of me to "Clicked Close Box"elseset the icon of me to "Close Box"end ifend repeatset the icon of me to "Close Box"end mouseDownon mouseUpset the lockScreen to truehide card button "Title"hide card field "Index Field"hide card button "Close"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>75</left>
<top>185</top>
<right>101</right>
<bottom>207</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3071</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>133</left>
<top>185</top>
<right>159</right>
<bottom>207</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3358</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Inverted Text (2 of 2)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>This is a variation on the technique shown on the previous card, where the close button is a small rectangle on the left side of the window title. This emulates Macintosh windows.The little close box behaves just like the close box on a real window. It uses two icons:The icon on the right is used when the close box is clicked. See the script of the close-box button to see how it works.</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>This field could contain some information or an index...</text>
</content>
<name></name>
<script></script>
</card>
card_22046.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif the hilite of me is true thenenable card button "Saturday"enable card button "Sunday"elsedisable card button "Saturday"disable card button "Sunday"end ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>334</left>
<top>165</top>
<right>460</right>
<bottom>187</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Thursday</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>334</left>
<top>187</top>
<right>460</right>
<bottom>209</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>1</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Friday</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>334</left>
<top>259</top>
<right>460</right>
<bottom>281</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>2</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Saturday</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>334</left>
<top>281</top>
<right>460</right>
<bottom>303</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>2</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sunday</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Inactive Buttons</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">n the standard Macintosh interface, buttons which are inactive under some circumstances are usually dimmed (i.e., displayed in grey).To make a button inactive, use the </span><span class="style3">Disable</span><span class="style1"> command; to make it active again, use the </span><span class="style3">Enable</span><span class="style1"> command.See the scripts of the checkbox buttons.Incidentally, this also illustrates how you can have more than one set of radio buttons on the same card, by using more than one </span><span class="style3">Family</span><span class="style1">.</span><span class="style28">Requires HyperCard 2.2.</span></text>
</content>
<name>Inactive buttons</name>
<script></script>
</card>
card_24503.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">hese fields behave like a spreadsheet, you can use </span><span class="style3">Tab</span><span class="style1">, </span><span class="style3">Return</span><span class="style1">, and </span><span class="style3">Arrow</span><span class="style1"> keys to move around.See the card script to see how it's done.</span><span class="style24">From Windoid #8.</span></text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>1239879000012.33</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>45</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>678</text>
</content>
<content>
<layer>background</layer>
<id>16</id>
<text></text>
</content>
<name>Spreadsheet-like fields</name>
<script>-- Spreadsheet-like fields, from Windoid #8----------------------------------------------------------------------on openCard -- global variables hold the number of rows and columnsglobal numCol, numRowsput 3 into numColput 12 into numRowspass openCardend openCard----------------------------------------------------------------------on tabKeyglobal numCol, numRowsget the selectedLineif it is empty then put "line 1 of card field 0" into itadd 1 to word 6 of itif word 6 of it > numCol thenput 1 into word 6 of itadd 1 to word 2 of itif word 2 of it > numRows then put 1 into word 2 of itend ifselect itend tabKey----------------------------------------------------------------------on returnInFieldglobal numCol, numRowsget the selectedLineif word 2 of it < numRows then add 1 to word 2 of itput 1 into word 6 of itselect itend returnInField----------------------------------------------------------------------on arrowKey directionglobal numCol, numRowsif the commandKey is down or the optionKey is down ¬or the shiftKey is down then pass arrowKeyget the selectedLineif "field" is not in it then pass arrowKeyif direction is "up" and word 2 of it > 1then subtract 1 from word 2 of itelse if direction is "down" and word 2 of it < numRowsthen add 1 to word 2 of itelse if direction is "left" and word 6 of it > 1then subtract 1 from word 6 of itelse if direction is "right" and word 6 of it < numColthen add 1 to word 6 of itselect itend arrowKey</script>
</card>
card_24703.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Start timer-- ...by Geneviève Crabeon mouseUpglobal timingOn, startTimeput the ticks into startTimeput true into timingOnend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>128</top>
<right>463</right>
<bottom>150</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>then click me</name>
<script>-- Stop timer and put value in field-- ...by Geneviève Crabeon mouseUpglobal timingOn, startTime-- timingOn is used to check if Button 1 was clicked firstif timingOn thenput (the ticks - startTime) / 60 into elapsedTimeput false into timingOnset numberFormat to "0.0" -- display with one decimal placeput "Elapsed time:" & return & elapsedTime & " sec" into ¬card field "time"elseanswer "You must click on " & quote & "Click me first" & quote ¬& " first."end ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Timing Events</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">f you want to figure out how long an event takes, you can use the HyperTalk function </span><span class="style3">the ticks</span><span class="style1">. This function returns the amount of time since the Mac was started up, in sixtieths of a second.If you have an event to time, you can get the value of the ticks at the start and at the end, subtract the two, and divide the result by 60. This will give you the number of seconds.In the simple example on the right, you are supposed to click the first button, then on the second. In the field will be displayed the elapsed time.See the scripts of the two buttons, and the card script.</span></text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>Elapsed time:</text>
</content>
<name>Timing events</name>
<script>on openCardglobal timingOnput false into timingOn -- initialize a variable used for timingpass openCardend openCardon closeCard -- clean upput "Elapsed time:" into card field "time"pass closeCardend closeCard</script>
</card>
card_29567.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Timing a section of code-- ...by Geneviève Crabeon mouseUpput "Elapsed time:" into card field "time"---- remember the starting time--put the ticks into startTime---- this is the section of code to be timed-- (all it does is count to 100 in the message box)--put 0 into message boxrepeat 100 timesset the cursor to busyadd 1 to message boxend repeat---- record the elapsed time and display it, in ticks and seconds--put the ticks - startTime into elapsedTimeInTicksput elapsedTimeInTicks & " ticks" into line 2 of card field "time"put elapsedTimeInTicks / 60 into elapsedTimeInSecondsset numberFormat to "0.0" -- display with one decimal placeput elapsedTimeInSeconds & " sec" into line 3 of card field "time"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>308</left>
<top>217</top>
<right>442</right>
<bottom>239</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Your Experiment</name>
<script>-- This is a copy of the "Timing Test" button script.-- Try modifying the middle section and see what results you get.on mouseUpput "Elapsed time:" into card field "time"---- remember the starting time--put the ticks into startTime---- this is the section of code to be timed-- ••• this is the section of code you can modify ••• ----put 0 into message boxrepeat 100 timesset the cursor to busyadd 1 to message boxend repeat---- record the elapsed time and display it, in ticks and seconds--put the ticks - startTime into elapsedTimeInTicksput elapsedTimeInTicks & " ticks" into line 2 of card field "time"put elapsedTimeInTicks / 60 into elapsedTimeInSecondsset numberFormat to "0.0" -- display with one decimal placeput elapsedTimeInSeconds & " sec" into line 3 of card field "time"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Timing HyperTalk Code</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ometimes, you have a script that is slow, and you would like to speed it up. The first step is to time various sections of code to see how long they take; this way, you can concentrate your efforts on the sections of code that are the most time-consuming.The top button on the right contain a section of code that is timed using </span><span class="style3">the ticks</span><span class="style1"> function. 60 ticks = 1 secondTry the button and then look at its script.Use the </span><span class="style3">Your Experiment</span><span class="style1"> button to try this out for yourself.</span></text>
</content>
<name>Timing HyperTalk code</name>
<script>on closeCard -- clean upput empty into card field "time"pass closeCardend closeCard</script>
</card>
card_11282.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">ometimes, you don't want the users of your stacks to use command-key shortcuts or arrow keys to get around, because this would by-pass your own navigation scripts.There are two handlers here which trap keyboard shortcuts.The first is a </span><span class="style3">doMenu</span><span class="style1"> handler. It traps all menu selections done by keyboard shortcuts (for example, try CMD-2, to go to the previous card). This handler is in the </span><span class="style3">card</span><span class="style1"> scriptThe second handler traps the arrow keys. If the arrows pressed are left or right, the handler generates a click on one of the arrow buttons at the upper right. This has the same effect as if the user had clicked on the button; it briefly inverts the button as if it had been clicked, and then runs the button's </span><span class="style3">mouseUp</span><span class="style1"> handler, including the visual effects. This one is in the </span><span class="style3">background</span><span class="style1"> script.</span></text>
</content>
<name>Trapping key shortcuts</name>
<script>on doMenuif the commandKey is downthen answer "Sorry, you can't use command shortcuts here!" with "OK"else pass doMenuend doMenu</script>
</card>
card_28692.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closeFieldget checkData(me)if it is not empty thenanswer "You must enter a number in the field."select text of meend ifend closeField------------------------------------------------------------------------ This function checks that the data is not empty, and that-- it is a number.--function checkData strif length(str) = 0 then return "no data"repeat with i = 1 to length(str)if char i of str is not in "-0123456789." thenreturn "invalid char"end ifend repeatreturn emptyend checkData</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Field Validation</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">ometimes, the user is asked to enter information in a field, and it is necessary to check that the correct information was entered.In the script of the field on the right is a </span><span class="style3">closeField</span><span class="style1"> handler which checks that the contents of the field is a </span><span class="style3">number</span><span class="style1">. The </span><span class="style3">closeField</span><span class="style1"> message is sent to a field when the user leaves the field and the contents has changed.Enter some text in the field and hit the </span><span class="style3">tab</span><span class="style1"> key to cause the </span><span class="style3">closeField</span><span class="style1"> message to be sent. Try it with a number, and with some letters.See the field script to see how this is done. Note that this script if fairly primitive, and could be enhanced.</span></text>
</content>
<name>Field Validation</name>
<script>on closeCardput empty into card field 1pass closeCardend closeCard</script>
</card>
card_22595.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Scripts for a button whose icon changes.-- ...by Geneviève Crabeon mouseDownset the icon of me to "Ex Lge Next Hand"wait until the mouse is upset the icon of me to "Sml Next Hand"end mouseDown</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>404</left>
<top>111</top>
<right>457</right>
<bottom>154</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17779</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>B2</name>
<script>-- Scripts for a button whose icon changes.-- ...by Geneviève Crabeon mouseDownset the icon of me to "Fleet Prev Arrow"wait until the mouse is upset the icon of me to "Black Prev Arrow"end mouseDown</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>296</left>
<top>165</top>
<right>349</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1018</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>B4</name>
<script>-- Scripts for a button whose icon changes.-- ...by Geneviève Crabeon mouseDownset the icon of me to "Compass"wait until the mouse is upset the icon of me to "Marker Cross"end mouseDown</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>390</left>
<top>198</top>
<right>443</right>
<bottom>241</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1015</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>B5</name>
<script>-- Scripts for a button whose icon changes.-- ...by Geneviève Crabeon mouseDownset the icon of me to "Bill"wait until the mouse is upset the icon of me to "Small Button"end mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Icons (1 of 5)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">t is possible to create an animated button by simply changing its icon.The buttons on the right have a script which changes the </span><span class="style3">icon</span><span class="style1"> when you click, and changes the icon back when you release the mouse button.Click and hold the mouse button on each of them to try them out. See the button scripts to see how they work.All the icons used here are standard HyperCard icons. You can achieve even more interesting effects by creating custom icons.Note that these scripts illustrate the use of </span><span class="style3">me</span><span class="style1"> to refer, in a script, to the object which contains the script which is running.</span></text>
</content>
<name>Animation with icons</name>
<script></script>
</card>
card_12408.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Animated juggler icon ...by Geneviève Crabeon mouseDown---- these are the names of the icons in the sequence--put "Juggler 1,Juggler 2,Juggler 3,Juggler 4" into iconList---- keep going while mouse is down--repeat until the mouse is up -- keep going while mouse is down---- cycle through the icons--repeat with i = 1 to the number of items in iconList-- change the icon and wait for a bitset the icon of me to item i of iconListwait for 10 ticksend repeatend repeatend mouseDown</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>388</left>
<top>132</top>
<right>465</right>
<bottom>190</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19321</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>world</name>
<script>-- Animated globe icon ...by Geneviève Crabeon mouseDown---- these are the names of the icons in the sequence--put "world 1,world 2,world 3,world 4" into iconList---- keep going while mouse is down--repeat until the mouse is up---- cycle through the icons--repeat with i = 1 to the number of items in iconList-- change the iconset the icon of me to item i of iconListwait for 10 ticksend repeatend repeatend mouseDown</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>295</left>
<top>209</top>
<right>372</right>
<bottom>267</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23376</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>doc</name>
<script>-- Animated document icon ...by Geneviève Crabe--on mouseDown---- keep going while mouse is down--repeat until the mouse is up---- cycle through the icons--repeat with i = 1 to 11-- change the icon-- the icon names are "Doc1", "Doc2", etc.set the icon of me to ("Doc" && i)wait for 10 ticksend repeatend repeatend mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Icons (2 of 5)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>More animated icons.These buttons cycle through several icons when you hold down the mouse button.The icons used here are stored in this stack.</text>
</content>
<name></name>
<script>on closeCardset the icon of cd btn "juggler" to "Juggler 1"set the icon of cd btn "doc" to "Doc 1"set the icon of cd btn "world" to "world 1"pass closeCardend closeCard</script>
</card>
card_29196.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- The two icons that make up the toggle are 23555 and 23556--on mouseUpplay "click"if the icon of me is 23555 then set the icon of me to 23556else set the icon of me to 23555end mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>310</left>
<top>84</top>
<right>359</right>
<bottom>129</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27211</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>-- The two icons that make up the toggle are 27210 and 27211--on mouseUpplay "click"if the icon of me is 27210 then set the icon of me to 27211else set the icon of me to 27210end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>160</top>
<right>339</right>
<bottom>210</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10010</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>-- The two icons that make up the toggle are 10009 and 10010--on mouseUpif the icon of me is 10009 then set the icon of me to 10010else set the icon of me to 10009end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>386</left>
<top>209</top>
<right>438</right>
<bottom>259</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>-- The two icons that make up the toggle are 10012 and 10013--on mouseUpplay "boing"if the icon of me is 10012 then set the icon of me to 10013else set the icon of me to 10012end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Icons (3 of 5)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">oggles.These buttons switch icons every time they are clicked.Some of them have added sound effects. The </span><span class="style3">boing</span><span class="style1"> sound is built-into HyperCard; the </span><span class="style3">click</span><span class="style1"> sound is in this stack.See the card scripts.The icons used here are stored in this stack.</span></text>
</content>
<name></name>
<script></script>
</card>
card_24241.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Animated fish . . . by Geneviève Crabeon mouseUp---- the first icon (the button is invisible right now)--set the icon of card button "Fish" to "Fish 1"---- move to the start position and show the button--moveFish "298,246"show card button "Fish"---- move the button towards the upper right--moveFish "307,227"moveFish "310,204"moveFish "322,190"moveFish "327,172"moveFish "338,159"---- change to the second icon--set the icon of card button "Fish" to "Fish 2"---- move the button horizontally--moveFish "345,159"moveFish "355,159"---- change to the third icon--set the icon of card button "Fish" to "Fish 3"---- move the button towards the lower right--moveFish "363,159"moveFish "374,174"moveFish "394,190"moveFish "401,206"moveFish "405,215"moveFish "410,225"moveFish "410,240"---- hide the button--hide card button "Fish"end mouseUp-------------------------------------------------------------- Call this handler to move the button to a new location,-- and delay by 1/6 second (otherwise it moves too fast).--on moveFish newLocset the loc of card button "Fish" to newLocwait for 10 ticksend moveFish</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>393</left>
<top>223</top>
<right>427</right>
<bottom>257</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11531</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>fish</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>33</left>
<top>130</top>
<right>71</right>
<bottom>164</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11529</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>91</left>
<top>129</top>
<right>129</right>
<bottom>163</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11530</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>148</left>
<top>129</top>
<right>186</right>
<bottom>163</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11531</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Icons (4 of 5)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his animation is done by moving a button, and changing its icon as it moves. There are three icons called </span><span class="style3">Fish 1</span><span class="style1">, </span><span class="style3">Fish 2</span><span class="style1">, and </span><span class="style3">Fish 3</span><span class="style1">:The button is moved, with the icon changing at the appropriate times.See the script of the </span><span class="style3">Animate</span><span class="style1"> button.</span></text>
</content>
<name></name>
<script></script>
</card>
card_29982.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Cursor animation,-- . . . by Geneviève Crabe--on mouseUpset the cursor to watchset the cantAbort of this stack to trueput the loc of card button "cursorBtn" into savedLoc---- show fake dialog (hide opaque field) and cursor button--hide card field "cover"show card button "cursorBtn"wait for 30 ticks---- calculate points on the path to the OK button--put linePoints (the loc of cd btn "cursorBtn", ¬the loc of cd btn "OK") into pts---- move the cursor button along the path--repeat with i = 1 to the number of lines in ptsset the loc of cd btn "cursorBtn" to line i of ptswait for 5 ticksend repeat---- play the click sound and highlight the button--wait for 30 ticksplay "click"set the hilite of cd btn "OK" to truewait for 20 ticksplay "click"set the hilite of cd btn "OK" to falsewait for 60 ticks---- finish--show card field "cover"hide card button "cursorBtn"set the loc of card button "cursorBtn" to savedLocset the cantAbort of this stack to falseend mouseUp------------------------------------------------------------------------ Given two points, return a list of intermediate points to create-- a path for animation.function linePoints loc1, loc2put item 1 of loc1 into h1put item 2 of loc1 into v1put item 1 of loc2 into h2put item 2 of loc2 into v2put (h2 - h1) into dh -- horizontal distanceput (v2 - v1) into dv -- vertical distanceput 15 into numSteps -- number of stepsput dh div numSteps into hStepput dv div numSteps into vStep--put h1 & "," & v1 into ptListrepeat (numSteps - 1) timesadd hStep to h1add vStep to v1put return & h1 & "," & v1 after ptListend repeatput return & h2 & "," & v2 after ptListreturn ptListend linePoints</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>404</left>
<top>190</top>
<right>481</right>
<bottom>218</bottom>
</rect>
<style>default</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OK</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>321</left>
<top>194</top>
<right>397</right>
<bottom>214</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cancel</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>257</left>
<top>122</top>
<right>498</right>
<bottom>235</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>cover</name>
<script></script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>267</left>
<top>283</top>
<right>289</right>
<bottom>316</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10510</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>cursorBtn</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Icons (5 of 5)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his is a more complex animation sequence, which is useful of you want to show an animation of the Mac interface.Click the </span><span class="style3">Play Animation</span><span class="style1"> button to see the animation.This animation uses a button whose icon looks like the arrow cursor, to simulate the cursor. It also uses graphics to simulate a dialog box (the fake dialog is hidden by an opaque field).The animation moves along a path from its initial position to the OK button; to accomplish this, it uses a function that calculates a series of intermediate points and moves the cursor button gradually on the path.When the cursor button gets to the OK button, the mouse click is simulated by playing a click sound, and briefly highlighting the OK button, as would happen when the button is clicked.See the </span><span class="style3">Play Animation</span><span class="style1"> button script for more details.You'll notice that the script uses the </span><span class="style3">cantAbort</span><span class="style1"> property. This prevents the user from interrupting the animation by hitting cmd-period. Note that this property should be used with care.</span></text>
</content>
<name></name>
<script></script>
</card>
card_25396.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Animate by moving a field around the screen-- ...by Ronald Wartow, modified by Geneviève Crabeon mouseUpshow card field 1 at 385,120---- move the field down in 12 steps--repeat 12 timesput the location of card field 1 into fieldLocadd 15 to item 2 of fieldLoc -- item 2 is the vertical coordinateshow card field 1 at fieldLocwait for 5 tickshide card field 1end repeat---- move the field back up in 12 steps--repeat 12 timesput the location of card field 1 into fieldLocsubtract 15 from item 2 of fieldLocshow card field 1 at fieldLocwait for 5 tickshide card field 1end repeatend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>282</left>
<top>95</top>
<right>489</right>
<bottom>146</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Fields (1 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his animation is achieved by moving a field from a script.See the </span><span class="style3">Animate</span><span class="style1"> button script.</span><span class="style24">Adapted from an article by Ronald Wartow in MacWorld magazine.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>There's no businesslike show business</text>
</content>
<name>Animation with fields</name>
<script></script>
</card>
card_26144.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Animation by typing in a fieldon mouseUpset the lockText of card field 1 to falseselect text of card field 1typeAndDelay "Apple 38.5" & return & "DEC 91" & return & "IBM 119.5"wait 1 secondselect text of card field 1typeAndDelay "Apple 80" & return & "DEC 170" & return & "IBM 150"wait 1 secondselect text of card field 1typeAndDelay "MARKET" & return & "TOPS" & return & "4000!"wait 1 secondput empty into card field 1set the lockText of card field 1 to trueend mouseUp-- This handler types a string of characters,-- with a small delay between each characteron typeAndDelay strput length(str) into n -- number of characters in the stringrepeat with i = 1 to ntype char i of strwait for 5 ticksend repeatend typeAndDelay</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>282</left>
<top>132</top>
<right>501</right>
<bottom>239</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>24</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<textHeight>32</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Fields (2 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">nimation is achieved here by erasing and typing in a field, as demonstrated earlier in this stack.This script uses the </span><span class="style3">select</span><span class="style1"> command.See the </span><span class="style3">Type...</span><span class="style1"> button script.</span></text>
</content>
<name></name>
<script></script>
</card>
card_26422.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Script by Ronald Wartow-- ...modified by Geneviève Crabeon mouseUpput return & "And now . . ." into card field 1--lock screenshow card field 1unlock screen with barn door open slowlywait 30 ticks--lock screenhide card field 1unlock screen with barn door close slowlyput return & "On with the show!" into card field 1--lock screenshow card field 1unlock screen with barn door open slowlywait 1 second--lock screenhide card field 1unlock screen with barn door close slowlyend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>63</left>
<top>120</top>
<right>454</right>
<bottom>216</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>24</textSize>
<textStyle>shadow</textStyle>
<textStyle>bold</textStyle>
<textHeight>32</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Fields (3 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his animation is accomplished by hiding a field, and then showing it with a visual effect.This script uses the </span><span class="style3">lock screen</span><span class="style1"> and </span><span class="style3">unlock screen</span><span class="style1"> commands.See the </span><span class="style3">Animate</span><span class="style1"> button script.</span><span class="style24">Adapted from an article by Ronald Wartow in MacWorld magazine.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>On with the show!</text>
</content>
<name></name>
<script></script>
</card>
card_27441.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Scrolling field animation.-- ...by Geneviève Crabeon mouseUppush card -- remember where we came fromgo to card "Moving Field"---- move the field 5 pixels at a time, all the way accross--put the loc of card field 1 into Lput 862 into item 1 of Lset the loc of card field 1 to Lrepeat 80 timessubtract 15 from item 1 of Lset the loc of card field 1 to Lwait for 3 ticksend repeatwait for 1 secondpop card -- return where we came fromend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Fields (4 of 4)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his animation works by moving a text field across the screen from right to left.See the </span><span class="style3">Animate</span><span class="style1"> button script.</span></text>
</content>
<name></name>
<script></script>
</card>
card_20631.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Simple animation using the lasso.-- ...by Geneviève Crabeon mouseUp---- selection tool with optionKey gives us a lasso-type selection--choose select tooldrag from 280,65 to 370,140 with optionKeydoMenu "Opaque"---- a series of drags make up the animation--set the dragSpeed to 300drag from 320,100 to 475,134drag from 475,134 to 307,315drag from 307,315 to 217,228drag from 217,228 to 84,315drag from 84,315 to 35,206drag from 35,206 to 83,30drag from 83,30 to 206,93drag from 206,93 to 314,33drag from 314,33 to 480,152drag from 480,152 to 317,258drag from 317,258 to 87,164drag from 87,164 to 204,68drag from 204,68 to 480,315drag from 480,315 to 320,100---- Yes, I know that this looks like it looks pretty difficult to-- come up with all these coordinates, but take heart, there are-- some utilities which allow you to record mouse movement and-- generate these drag commands automatically.---- ... and now we return to browse tool--reset paint -- reset all the paint settings to their defaultschoose browse toolend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Paint Tools (1 of 6)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">he paint tools can be used to select a picture and drag it around the screen.See the </span><span class="style3">Animate</span><span class="style1"> button script.</span></text>
</content>
<name>Animation with paint tools</name>
<script></script>
</card>
card_26712.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Jaws script-- ...by Ronald Wartowon mouseUp---- first draw the fin--choose regular polygon toolset lineSize to 1set polySides to 3 -- fin is a triangleset pattern to 12 -- blackset filled to truedrag from 420,320 to 420,270---- select the fin with the marquee--choose select tooldrag from 340,265 to 500,342 -- marquee selects the finset dragSpeed to 200---- play the sound effect, and drag the fin accross the screen--play boing tempo 250 "a3 c4 a3 c4 a3 c4 a3 c4 a3" -- sound effectdrag from 400,283 to 50,283 -- the fin moves accross the screen---- restore the screen--doMenu "Revert"reset paint -- reset all the paint settings to their defaultschoose browse toolend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Paint Tools (2 of 6)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his animation is accomplished by using the paint tools to draw a picture, and drag it around.It also uses the </span><span class="style3">Boing</span><span class="style1"> sound effect.</span><span class="style24">Adapted from an article by Ronald Wartow in MacWorld magazine.</span></text>
</content>
<name></name>
<script></script>
</card>
card_23179.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- This script draws a simple graph based on a series of numbers given-- in a field.-- ... by Geneviève Crabeon mouseUpglobal graphDrawn-- to keep track of whether there is a graph to erase when we leaveput true into graphDrawn---- how many points in the graph--put the number of lines in card field "numbers" into numItems---- xAxis and yAxis are the coordinates of the edge of the graph area-- xIncr and yDecr are the spacing between units in the graph--put 293 into xAxisput 296 into yAxisput 22 into xIncrput 12 into yDecr---- select the line tool, and a line thickness of 2--choose line toolset the lineSize to 2---- this is the loop which creates the graph--repeat with i = 1 to numItems---- check that each number is between 1 and 10--put line i of card field "numbers" into theValueif theValue < 1 or theValue > 10 thenanswer "Numbers must be between 1 and 10."exit repeatend if---- calculate the screen coordinates at which to draw the next point--put xAxis + (i * xIncr) into xValueput yAxis - (theValue * yDecr) into yValue---- if this is the first point, just click to draw a point;-- otherwise, draw a line from the last point--if i = 1 then click at xValue, yValueelse drag from prevX, prevY to xValue, yValue---- remember the last point so we can draw a line to the next one--put xValue into prevXput yValue into prevYend repeat---- done... go back to the browse tool--reset paint -- reset all the paint settings to their defaultschoose browse toolend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>389</left>
<top>309</top>
<right>489</right>
<bottom>331</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Erase Graph</name>
<script>-- This button erases the graph.---- The script first chooses the selection tool drags a marquee around-- the graph, and then uses the "Clear Picture" menu command to erase-- the graph.on mouseUpchoose select tooldrag from 294, 294 to 455, 173doMenu "Clear Picture"choose browse tool--global graphDrawn-- to keep track of whether there is a graph to erase when we leaveput false into graphDrawnend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>269</left>
<top>62</top>
<right>483</right>
<bottom>91</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Paint Tools (3 of 6)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">sing the paint tools within scripts allows you to automatically generate graphics.This example illustrates drawing a simple graph. Change the numbers in the field and click the </span><span class="style3">Draw Graph</span><span class="style1"> button.NOTE: all the numbers must be between 0 and 10.To erase the graph, click the </span><span class="style3">Erase Graph</span><span class="style1"> button.</span></text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>89261105</text>
</content>
<content>
<layer>background</layer>
<id>16</id>
<text>Please wait whilethe graph is erased...</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style1">ou can change the numbers in the field,then click </span><span class="style3">Draw Graph</span><span class="style1">.</span></text>
</content>
<name></name>
<script>on openCardglobal graphDrawn-- to keep track of whether there is a graph to erase when we leaveput false into graphDrawnpass openCardend openCardon closeCardglobal graphDrawnif graphDrawn thenShowMsg "Please wait while" & return & "the graph is erased..."send mouseUp to card button "Erase Graph"HideMsgend ifpass closeCardend closeCard</script>
</card>
card_25855.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Painting from scripts.-- ... by Geneviève Crabeon mouseUp---- first, draw some text using the text tool--choose text toolset textFont to Genevaset textSize to 18set textStyle to boldset textAlign to leftclick at 285,130type "Hello, my name is"click at 285,160type "Geneviève Crabe..."wait 1 second---- now, draw a rectangle--choose rectangle toolset lineSize to 2set centered to false -- we want to draw from the cornerset multiple to false -- draw the rectangleset filled to trueset pattern to 16drag from 300,200 to 440,300 -- draw itwait 1 second---- now, draw an oval--choose oval toolset centered to false -- we want to draw from the cornerset multiple to false -- draw the ovalset filled to trueset pattern to 12drag from 320,220 to 420,280 -- draw it---- now, erase the graphics--wait 3 secondsdoMenu "Revert"reset paint -- reset all the paint settings to their defaultschoose browse toolend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Paint Tools (4 of 6)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>This is another example showing how to use the paint tools from a script: typing text and drawing a rectangle and an oval.</text>
</content>
<name></name>
<script></script>
</card>
card_25867.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Visual effect using the paint tools,-- by Ronald Wartow-- modified by Geneviève Crabeon mouseUpchoose oval toolset lineSize to 2set centered to trueset dragSpeed to 100set multiple to true -- draw multiple ovalsset multiSpace to 1 -- set spacing between ovalsset filled to falsedrag from 261,171 to 520,520wait for 2 seconds--lock screendoMenu "Select All"doMenu "Revert"reset paint -- reset all the paint settings to their defaultschoose browse toolunlock screen with iris close slowlyend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Animation with Paint Tools (5 of 6)</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">his example uses the paint tools to achieve an interesting effect...</span><span class="style24">Adapted from an article by Ronald Wartow in MacWorld magazine.</span></text>
</content>
<name></name>
<script></script>
</card>
card_28430.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>-- Draw along a pre-defined path.-- ... by Geneviève Crabeon mouseUp---- start by resetting the paint properties--reset paint---- set the tool to paint brush--choose brush toolset the dragSpeed to 300---- draw from one point to the next in the field--repeat with i = 2 to the number of lines in card field "points"drag from line i - 1 of card field "points" to ¬line i of card field "points"end repeatwait for 60 ticks---- erase graphic and back to the browse tool--lock screendoMenu "Select All"doMenu "Revert"reset paint -- reset all the paint settings to their defaultschoose browse toolend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>418</left>
<top>80</top>
<right>493</right>
<bottom>329</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>points</name>
<script>on mouseUphide meend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>417</left>
<top>57</top>
<right>495</right>
<bottom>74</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Show Points</name>
<script>on mouseUpshow card field "points"end mouseUp</script>
<text><span class="style1">his script draws a picture with the paint brush tool. Click the </span><span class="style3">Animate</span><span class="style1"> button to see it in action.The script uses a list of points stored in a field. Click </span><span class="style3">Show Points</span><span class="style1"> to see the list. (You can click on the list to hide it.)</span><span class="style3">Exercise</span><span class="style1">: try to write a script to follow the mouse movements and create the list of points.</span></text>
<script>on mouseUpglobal theChoiceput the selectedLine of me into sput line (word 2 of s) of me into newChoiceif newChoice = theChoice then exit mouseUpshow cd fld newChoiceif theChoice is not empty then hide cd fld theChoiceput newChoice into theChoiceend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>265</left>
<top>155</top>
<right>490</right>
<bottom>327</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>palettes</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>265</left>
<top>155</top>
<right>490</right>
<bottom>327</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Card, Bkgnd, Stack Info</name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>265</left>
<top>155</top>
<right>490</right>
<bottom>327</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Script Editor Font</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>265</left>
<top>155</top>
<right>490</right>
<bottom>327</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Search Scripts</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>265</left>
<top>155</top>
<right>490</right>
<bottom>327</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Mouse Location</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>Home Stack Goodies</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text><span class="style1">f you are using the standard </span><span class="style3">Home</span><span class="style1"> stack that comes with HyperCard, there are several useful utilities in the Home stack script that you can use during stack development.Click on an item in the list (upper right) for more information.All the commands can be used by typing them in the message box. In all case, type the command in the message box, and hit return.</span></text>
<text><span class="style29">alettes</span><span class="style1">There are shortcuts for opening three of HyperCard's built-in palettes. Type the commands in the message box.To open the Navigator palette, type</span><span class="style3"> nav</span><span class="style1">To open the Message Watcher, type</span><span class="style3"> mw</span><span class="style1">To open the Variable Watcher, type</span><span class="style3"> vw</span><span class="style30"></span></text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text><span class="style29">ard, Bkgnd, Stack Info</span><span class="style1">There are shortcuts for the </span><span class="style3">Card Info</span><span class="style1">, </span><span class="style3">Bkgnd Info</span><span class="style1">, and </span><span class="style3">Stack Info</span><span class="style1"> menu items. Type these in the message box.For Card Info, type</span><span class="style3"> c</span><span class="style1">For Bkgnd Info, type</span><span class="style3"> b</span><span class="style1">For Stack Info, type</span><span class="style3"> s</span></text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text><span class="style29">cript Editor Font</span><span class="style1">It is possible to change the font and size used in the script windows. You can type the full commands in the message box, or use the shortcut provided in the Home stack.To try it, type</span><span class="style3"> se </span><span class="style1">in the message box.</span></text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text><span class="style29">earch Scripts</span><span class="style1">There is a very useful handler that will search for a string in all the scripts in a stack. This is useful, for example, to look for occurrences of a global variableTo use this, type</span><span class="style3"> searchScript "str" </span><span class="style1">in the message box, where "str" is the string you want to look for.</span></text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text><span class="style29">ouse Location</span><span class="style1">There is a handler that tracks the mouse, displaying the mouse location in the message box.To use it, type</span><span class="style3"> xy </span><span class="style1">in the message box.After hitting return, the handler will continuously display the mouse location in the message box, until you click the mouse.</span></text>
</content>
<name>Home Stack Goodies</name>
<script>on openCardglobal theChoice, msgBoxVisput the visible of message box into msgBoxVisput empty into theChoiceshow message boxend openCardon closeCardglobal theChoice, msgBoxVisset the visible of message box to msgBoxVisselect line 0 of card field "the list"if theChoice is not empty then hide cd fld theChoicepass closeCardend closeCard</script>
</card>
card_27311.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1"></span><span class="style13">THE END</span><span class="style1">Click the Index button above to return to the Index card.</span></text>
</content>
<name></name>
<script></script>
</card>
card_14805.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpvisual effect barn door closepop cardend mouseUp</script>
</part>
<part>
<id>26</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>65</top>
<right>245</right>
<bottom>328</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>267</left>
<top>65</top>
<right>495</right>
<bottom>328</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>443</left>
<top>26</top>
<right>502</right>
<bottom>50</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>How to use this stack</text>
</content>
<content>
<layer>card</layer>
<id>26</id>
<text><span class="style1">his stack is a catalogue of various HyperCard and HyperTalk techniques which I have found very useful. All the techniques described in this stack can be implemented in HyperTalk only, and require no XCMDs.Each technique card consists of two parts.On the left side is the explanation of what the technique is and suggestions as to where it could be used. On the right is an example of the technique; typically, you can find out how a technique works by examining the scripts of the buttons, fields, and sometimes the card script.Please e-mail comments, suggestions, andbug reports:</span><span class="style3">Geneviève CrabeCompuServe: 72520,1110America Online: GCrabeInternet: aa729@freenet.carleton.ca</span><span class="style1"></span></text>
</content>
<content>
<layer>card</layer>
<id>27</id>
<text><span class="style3">o look at scripts, proceed as follows:</span><span class="style1">For </span><span class="style3">Button Scripts</span><span class="style1">, select the button tool in the Tools menu, double-click the button, and click the Script button. Alternatively, hold down the Command and Option keys and click the button.For </span><span class="style3">Field Scripts</span><span class="style1">, select the field tool in the Tools menu, double-click the field, and click the Script button. Alternatively, hold down the Command, Option and Shift keys and click the field.For </span><span class="style3">Card Scripts</span><span class="style1">, select Card Info in the Objects menu, and click the Script button. Alternatively, hold down the Command and Option keys and press C.</span><span class="style3"> Ottawa, May 1994</span></text>
